RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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SSSSSSSS KK KK HI! PP LLLLLLLLLL eeee 
LL III] SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SSSSSS 
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— 16- 8oen 188 hGai0d «— NESKSUMBMASTERSCMUNOFE “SRCISKIPL BLING; < 


a Sf. bine skiping' 


$32 £, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
ONEXTERNAL = LONG-RELATIVES] 


BEGIN 


lentententenenennentnenenteanentertneenererteetententnntnntnernnenennentettns 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE te MAY BE USED AND ghd 
ie ONL ACCORDANCE WITH TH RM F LICE AN 

ie INC T VE ° "SOF TWA E 0 

is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
is a 9 4 4g NO TITLE TO AND OWNERSHIP OF THE SOFTWARE iS HEREBY 


iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
> Seokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


'® 
LARA ERE REA AE AERA RAE KEE 


BILITY FOR THE USE OR eenere OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITA 


eaeeeneeeeeeenenenaeaenennannn 


44 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


ABSTRACT: Conditional and unconditional Line skipping. 
ENVIRONMENT: Transportable 
AUTHOR: R.W. Friday CREATION DATE: May, 1978 


DWONOULSWN (“OOD NOAULS WN OOODNOUE WN OO OONOU EWN 
SOOOCSOCSOOOSOSOSSOSOOSOOSOSOSOSOSOOSOOOOOSOOOOOOSoOO 
ee ee wwe e ee folololololololelo le lo lo lo lo le lo lololololololo) 
WAWNAAA WAI AID PONPNIPININPININID) 2 2 OOO SM OOOOOOOCOCO 
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Perform all modes of Line skipin 18-5e -1984 01:47: VAX-11 Bliss-32 V4.0-742 Page 2 
Rovinten Wtotere —“ 1e-8ep-1o8e Fbiba:09 «Pee calmBALS teas chONOre “SecasxreL.aui6d@” «2s 
40 1 ZSBTTL ‘Revision History’ 
ry ! MODIFIED BY: 
‘ 1/ 011 KFA00011 Ken Alden 13-Jun-1983 
Spee 1! Counting of Lines is no longer performed in USKIPL 
Be? ! } for /down skipping. 
094? 1/ 010 RERO0010 Ron Randall 31-May-1983 
048 1! Improved algorithm in ust iet that tests for space available 
Boe8 ! at end of page before calling newpag by adding hct_layout term. 
8 ii 009 KAD00009 Keith Dawson 22-Mar-1983 
O26 1! Added support for non=STREAM output (for LNO1, VT100) -= 
0055 1! call to macro op_dev_write_output_line instead of to 
ite: : clh (clh_write_outpuf). 
0056 1} 008 REMO0008 Ray Marshall 07-Mar-1983 
0057 1! Global edit of all modules. Updated module names, idents, 
itt : copyright dates. Changed require files to BLISS library. 
0060 1 i-- 


cc 
OOCOCCCoCCooocoooo 


— 
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Perform all modes of Line skipin Sep-1984 X-11 $-32 V4.0-742 3 
Module Level Declarations ° 12:8 Sep ars 1 94:38 ‘33 bts SK$V vMen TER: CRUNOFF. SRCISKIPL.BLI; Pa9 * (3) 
SSBTTL "Module Level Declarations’ 
| TABLE OF CONTENTS: 
FORWARD ROUTINE 

cskipl : novalue, 

uform : novalue, 

uskipl : novalue; 
INCLUDE FILES: 


RARY ‘NXPORT: XPORT' ; ! XPORT Library 
UIRE "REQ:RNODEF'; ! RUNOFF variant definitions 


L1B 
EQ 
IF DSRPLUS XTHEN 

ogy gid *REQ:DPLLIB'; ! DSRPLUS BLISS Library 
1B 

FI 


S 
RARY ‘REQ:DSRLIB'; ! DSR BLISS Library 


-— perm nermse wr ------ 


EXTERNAL REFERENCES: 


EXTERNAL 
fnct : fnct mathe Mees 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
' 
1 fra: fixed_stri ng. 

1 on, 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


0215 

si6 

at ct : het definition, 
$520 phan: pnah det tot faon. 
: sf : tsf_definition; 
0382 EXTERNAL ROUTINE 

§5S7 clh, 

B¢¢? fbwait, 

0226 lstops, 

ossi newpag, 

0228 tofeql, 

$544 tpr; 

0230 


N 5 

PL"=* skip requistt nunber Of Lines 1er8e5-1986 93:08:09 BT SkSim 
f 
= 


ZSBTTL 'CSKIPL -- skip requisit number o 
GLOBAL ROUTINE cskipl (lines) : NOVALUE 


SKIP 
v04-000 


104 
105 


4.0-742 Page 4 
UNOFF .SRCISKIPL.BLI; (4) 


s2 
ro) 


Lines' 
le 
FUNCTIONAL DESCRIPTION: 


Skips lines until either the top of a page is reached 
or the requested number of Lines have been skipped. 


i 

' 

i 

( 

i 

FORMAL PARAMETERS: 

| Lines = Specifies the maximum number of Lines to be skipped. 
IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: None 

i 
1 

i 
1 
le 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 
. 1, BRON, top _poge 
RETURN; ! Don't skip Lines if at top of page. 
re -lines EQL 0 
RETURN; ! Forget trivial requests. 
IF NOT tpr (.lines + 1) 
THEN 


i Just start a new page if the skipping 
would go over a page boundary. 


phan_top_page = true 
ELSE? -tOp_pag 
BEGIN 


i Initialize output buffer. When CLH gets called FRA is either empty 
or else contains some stuff that appears to the left of the document. 


fs_init (fra); 
: Attach Listing options to Line. 
istops (lstops_no_iseqn, true); 


t 
Write out the blank Lines. 


iNCR I FROM 1 TO MIN (.Lines, 500) DO 
BEGIN 


PAA A ANNI A AINA IIR ROOPOPPUOPOROPONONONONNINIIIINN 


Se Se Se Se Se Se Be Se Se Se Se Se Ge Be Be Se Se Se Ge Ge Be Ge Ge Fe Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Se Se Se Se Sse See Se Sse Sees SseSseSseSsesese 
ee ee ee me ee me ee ec ce ed ee ee a Be ed ed ed ed 2d nd = od = od 


PAA & BB EB EE EE EWAN NIWA ININIPININININIDYD 2 2 OO OS SS OOOO 
COW NO NEW (OOO NOA UES WN 9 DOONAN WN “OVO ONOUES WN" OVDONOUE WN O0DONO 
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PL == skip serialt mumber of Lines 1a-8ep- 3B 93:68:69 DISKSVMSMASTER:CRUNOFF .SRCISKIPL.BLI:1~ (4) 


04000 


IF_ .fnct_ready NEQ 0 
THEN 


Yup, there are footnotes waiting to be output. So, before 
writing a blank Line, see if the paper is positioned at 
precisely the position where some footnotes should appear. 


4rPteat () NEQ 0 


Ot wee ee eee me 


F 
HE 
Yup, we're in the location where some footnotes should go. 
If a blank Line were to be put out now, it would be exactly 


where the first Line of the waiting footnotes is supposed 
to appear. 


THEREFORE, it's important that the blank Line not be 
generated. Instead, the top-of-page indicator is set, 
so that no more blank Lines will be generated, and 

; So the next Line of text will force out some footnotes. 


BEGIN, . 
an. to age = true; 
RETURN: ° 


OOCSOCOCOOCOCOCOCOCOCOCOO “UV 


IF NOT .gca 
THEN 


OONAVUESWN —OOONOULS WN (ODO ODNOUS WN 


skip_out 
T If fot skipping output, output blank Lines only. 
op_dev_write_output_line; 


phan_lines_tp = .phan_lines_tp + 1; ! Count Lines. 
‘ 
‘Now restore the output buffer to an empty state 
fs_init (fra) 
END; 


Bete Ge Se ee Ge Se Se Oe SH Se Ge Be Se Ge Se Ge Se Sees Os Oe Oe Oe Sete Ge Se Se Se Se ee Se Se Fe Se Ge Ge Gee 
NON 2 2 ts ss 
SSSSSF QR ea ee hee SSS 


—OOONOufwh— 
eh eh ehh eh eh ee ee ee ee ee eh he ee et et et et Pt oP at et et er ot ot a? at ot et oP oP ee 


COOCOCOCOCOCOOSOOOCCCOOCOCOCOCOOCOOOOOoOO 


END; ! End of CSKIPL 


E se iet par tere all modes of Line skiping 
T \v04-000\ 


XTRN PHAN. TSF. BWAIT 
XTRN CLH, FBWAIT, LSTOPS 

EXTRN NEWPAG, TPFEQL, TPR 

.PSECT SCODE$,NOWR7,2 


sENTRY CSKIPL, Save R2,R3,R4,R5 


TITL 
IDEN 
EXTRN FNCT, FRA, GCA, HCT 
. TR 


; 0232 


. 
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. 
e 
. 
o 
- 
e 
- 
o 
+ 
7 
+ 
e 
. 
. 
. 
o 
. 
° 
. 
7 
. 
o 
2 
o 
. 
a 
. 
e 
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3c 000 : 
55 900000006 EF 9€ 0000 MOVAB PHAN, RS : 
4 000000006: EF 3 00 MOVAB FRA, R4 : 
01 65 €9 00010 BLBC PHAN, 1$ : 


; 0256 


SKIP Perform all modes of Line skipin 16-5e Sep-1984 VAX-11 BlLiss-32 V4.0-742 6 
v04 “600 CSKIPL == skip Peeriels number of Lines 1 30071382 at 89 DISKSVMSMASTER: CRUNOFF.SRCIJSKIPL.BLI; ri? (4) 
04 1 RET 3 
52 04 ac 09 i 1$: MOVL LINES, R2 + 0260 
7 18 BEQL $ ; 
01 he 9F OOOIA PUSHAB 1(R2) + 0264 
000000006 EF : FB D CALLS #1, TPR : 
. A 2 bo05? ela Frets : 0277 
64 6 AG aE A MOVAB FRA+16, FRA : 
04 Ad 4 D OVL FRA, FRA+4 : 
1 DO ; PUSHL #1 3; 0281 
00000006 EF PB 00086 Peete 55! stops : 
ita te F of 0 5 CHL Re. ity + 0286 
52 O1F4 = BF 32 0046 MOVZWL #500, R2 ; 
a | 
000000006 F b OO04E 3$ Ist ENCT#4 ; 0289 
000000006 EF OF 00087 CALLS #0, TPFEQL + 0297 
ct : 
65 if Dd 0006 4$ MOVL #1, PHAN + 0311 
04 0006 RET : 0310 
18 000000006 EF E8 00066 5$ BLBS  GCA+112, 8$ > 0315 
02 000000006 _ EF 04 04 ED 0006p CMPZV as, #4, GCA+208, #2 ; 0316 
06 DD 00078 PUSHL #6 ; 
02 11 OO07A RB 7$ ; 
000000006 EF OF PB Share Se: cuSML att : 
Oc AS D6 0088 8$: INCL — PHAN#+12 : 0319 
’ og HE GE RRMRE PH OREO A 88 
64 10 AG 3 0008F MOVAB ERAGIG FRA : 
04 AG 64 D 00093 MOVL FRA+4 ; 
04 00097 10$: _—sRET + 0328 


; Routine Size: 152 bytes, Routine Base: $CODE$ + 0000 


; 202 0329 1 
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SKIP orm all modes of Line skipin 16-Sep-1984 01:47:33 VAX-11 Bliss-32 V4.0-742 Pp 7 
vo4~000 PL == uncond tionally skip a Lines 127868718 4 93:58:08 DISKSVMSMASTER:CRUNOFF.SRCISKIPL.BLI:1> (5) 


ZSBITL 'USKIPL == unconditional ly skip n lines’ 
GLOBAL ROUTINE uskipl (lines) : NOVALUE = 


'+ 


144 
! FUNCTIONAL DESCRIPTION: 


Skips lines regardless of position on the pepe In the event 

that there is a pending formfeed, it forces that out also. Note that 

the only time a formfeed could be pending is at the top of a page, when 

the user had said .NO HEADERS. The routine cskipl cannot put out the 

formfeed because it skips lines only if they do not occur at the top of 

rae peees The only other routine that can catch pending formfeeds is 
utl. 


FORMAL PARAMETERS: 

Lines = Specifies how many Lines are to be skipped. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 


LOCAL 
skip; 


IF .lines EQL 0 
THEN 

RETURN; ! No Lines to skip. 
skip = .lines; 


IF .phan_form_pend NEQ 0 
THEN ! If a form feed is pending 


and /SIMULATE, 

' then simulate the formfeed. 

' If a form feed and /NOSIMULATE, 
! then force out pending formfeed 


IF .phan_simulate 


BEE EEE AWM NAA AAI WII PNIPONPINIPOPONODN 2 


uform () 
ELSE 


IF. -phan_pause 
(IF NOT .gca_skip_out 
fbwait ()) ' Bell the user before issuing the <FF>. 
ses fs_wehar (fra, .phan_form_pend); 


lstops (lstops_no_iseqn, true); ! Attach Listing options to Line. 


COCO 
COWNO AE WR OOONAUE WN OODNOU EWN BOO DNOUEWN ODD NOME WOOO WO 


AAIANAWHIA® & BE WIWNIAIRIPININPIPINININININININININININIDD 2 9 9 9 9 SS Ss SS SS SS es 
asecass so 


PROPDPOPOPINPOPIMOPINGNININYINININPIPYNINININININININPINININI NP NPoNoNoNofnonofony» 


PAA A & & 


IF NOT .gca_skip_out 


01FC 00000 .ENTRY USKIPL, Save R2,R3,R4,R5,R6,R7,RB 
58 00000006 EF 9E 0002 MOVAB CLH 
57 000 G EF 9€ 0000 MOVAB LSTOPS, R7 
$ 6 G EF 3 19 MOVAB GCAtIIC. R 
G EF 9€ 0001 MOVAB PHAN+12. R 
4 000000006 EF 9 1 MOVAB FRA 
4 ac OD TSTL LINES 
01 1 BNEQ 
04 A RET 
5 04 ac D B 1S: MOVL LINES, SKIP 
“ 8 p MOVL PHAN#$2, R3 
5 BEQL 
09 28 «(AS OCC BLBC = PHAN+52, 2$ 
00000000v_ EF 00 Fe CALLS #0, UFORM 
48 1 4 BRB 9$ 
0¢ 30 =A Eg 42 2%: BLBC PHAN+ 60, 3$ 
66 £ 4 BLBS  GCA+112. 4$ 


6 
SKIP Perform all modes of Line skipin 1b-5¢ 1984 01:47: VAX-11 Bliss-32 V4.0-742 
vo4~000 USKIPL == uncond tfonalty skip a Lines 1 ~300 71382 94:68:08 DISKSVMSMASTER: CRUNOFF .SRCISKIPL.BLI 
: 261 7 THEN ' If output is suppressed, then 
: 6¢ i op_dev_write_output_Line; : don’t rite blan Lines. 
: 264 IF NOT .gca_down_fl 
; 265 1 THEN siesta. es 
: 08 § phan_lines_tp = .phan_lines_tp + 1; ! Count Lines. 
: 268 94 skip = .skip = 1; 
; 269 95 phan. form pend = 0; 
; 270 38 fs_init (fra); 
: q] : END; 
: ” 3 INCR i FROM 1 TO min (.skip, 500) DO 
; a 491 BEGIN 
: 276 4 & IF .phan_paging AND (.phan_top_page OR 
3 err 208 6 UT onan. tines. tp + CIF Thetclavout EQL 0 THEN O ELSE 1)) 
; 278 0404 4 GEQ .phan_llines)) 
3 79 0405 N 
: st Bene newpag (); 
; 28 0408 fs_init (fra); 
; ge get? lstops (lstops_no_iseqn, true); ! Attach Listing options to Line. 
: 286 bel§ IF NOT .gca_skip_out THEN ! If output is NOT suppressed, 
; +t Beta op_dev_write_output_line; ! write out blank Lines. 
: 289 415 IF NOT .gca_down_fla 
: 389 Belg fen) See 
: $3) ah f4 . phan_lines_tp = .phan_lines_tp + 1; ! Count Lines if not /down. 
: $98 0419 ; , 
3 294 $50 fs_init (fra); 
: 295 0421 ? END; ! End of USKIPL 


A a 


wef 
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SKIP Perform all modes of Line skipin 16-Sep-1984 01:47: VAX-11 Bliss-32 V4.0-742 P 9 
vo4~000 USKIPL == uncond{t tonal Ly skip ar Lines 12-86-1382 94:68:09 DISKSVMSMASTER:CRUNOFF.SRCISKIPL.BLI:1~— (5) 
000000006 EF 0 Fe 4 CALLS #0, FBWAIT ; 38 ; 
A BRB : 03 5 
04 B4 3 90 3$: MOVB 3, @FRA+4 + 038 : 
04 A D6 INCL  FRA+4 : ; 
C Aé OD INCL  FRA+12 : ; 
1 OD C 4$ PUSHL #1 + 0384 : 
DD PUSHL ait : ; 
67 FB 6 CALLS # L STOPS : F 
11 E 6 BLBS  GCA+112, 7$ : 0386 F 
02 60 Ab 04 4 FD 6 CMPZ2V #4, #4, GCA+208, #2 : 038 ; 
C BGTR 5$ : ; 
§ pp PUSHL a : : 
BRB 6 : ; 
B OD 07 5$: PUSHL #11 : ; 
68 1 FB 0074 G8: CALLS #1 chy : ; 
0 44 ag E8 00077 7$: BLBS GCA+ Q. 8$ : 0390 ; 
$ 6 0078 INCL  PHAN#1 + 0392 ; 
é D7 0007D 8$: DECL SKIP + 0394 ; 
14 AS D4 0007F CLRL PHAN+32 > 0395 ; 
of AS D4 pee CLRL FRA+1 3 0396 3 
4 1 AG 4 Soe MOVAB FRA+16, FRA : 3 
046 Ab 64 00 00089 MOVL FRA, FRA+4 : : 
000001F4 BF 32 D1 0008D 9$ CMPL = R2, #500 : 0399 ; 
05 15 00094 BLEQ = : ; 
52 O1F4 BF 3C 00096 MOVZWL #500, R2 : F 
; D4 00098 108 CLRL ; ; 
11 00090 BRB 9$ : ; 
23 1c B5 €9 0009F 11$:  BLBC  a@PHAN+40, 15$ + 0402 ; 
18 FE OAS Es OOAS BLBS PHAN, 14$ ; ; 
000000006 EF DS OO0A TSTL HCT+28 + 0403 : 
4 12 BRAD BNEQ 12$ ; 3 
9 D4 OOOAF CLRL R 5 F 
6 11 00081 BRB 13$ ; : 
50 1 00 00B3 128: MOVL #1, RO : ; 
50 65 CO 00086 13$:  ADDL2 PHAN+12, RO ; ; 
F8 BS 30 D1 00089 CMPL RO @PHAN+4 + 0404 ; 
0 19 000BD iss —s«é15$ ; : 
000000006 EF 0 FB OOOBF 14$: CALLS #0 NEWPAG > 0406 F 
o¢ AG p4 00¢6 15$: CLRL. ss FRA® : 0408 : 
64 10 Ad 5 00C MOVAB FRA+16, FRA ; ; 
04 Ad 4 00 000CD VL —s FRA, -~—FRA+ ; ; 
1 DD 00001 PUSHL #1 + 0410 
67 ; Pe O03 Peet oa i srops 
11 EB D BLBS Eehelioe 18$ + 0412 
02 60 Ab 04 4 FD D CMPZ2V #4, #4, GCA+208, #2 : 
4 14 000€ BGTR 16$ : 
$ bp E PUSHL Hs F 
E BRB 17$ ; 
: DD OODE 198 PUSHL #11 ; 
68 F £9 17$ CALLS #1 ¢ H : 
44 AB E EC 18$ BLBS GCA+ 0, 19$ ; 0415 
6 D F INCL PHAN¢ > 041 
Ag 53 f F219$: AOBLEQ R2 11$ ; 0599 
of A p F CLRL. —s FRA® é ; 0420 
64 AG , F MOVAB FRA+16, FRA ; 
04 AG 64 D FD MOVL FRA, FRA+4G : 
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SKIP Perform all modes of Line skipin 18- ep-1984 01:47: VAX=-11 Lisse -32 v4.0-7 
y04-000 USKIPL == uncondit onal Ly skip ne Lines 1 ~300-1 382 94335388 DISKSVM wAST ER: CRUNOFF. Se acdsKIPL. BLI; Peoe (3 
04 00101 RET 3 0421 
; Routine Size: 258 bytes, Routine Base: SCODE$ + 0098 


$¢ 
ex 


; 296 0422 1 


H 6 
SKIP Perform all modes of Line skipin 16-Sep-1984 01:47:33 VAX=11 Bliss-32 V4.0-742 Pp 11 STC 
v04- UFORM == throw blank Lines to top-of-page erseen aes Pe beibs | iedbthletea choabee sacaskrpc.ecint™” co) v04: 
38 ZSBTTL 'UFORM == throw blank Lines to top-of-page' 
GLOBAL ROUTINE uform : NOVALUE = 
Bo 'o4¢ 
Oe | FUNCTIONAL DESCRIPTION: 


Starts a new page by simulating a form feed by 
putting out a sufficient number of blank Lines. 


FORMAL PARAMETERS: None 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


ooo 

Gear 
SLLLLLLLLLLLLLLLLLLLEF] 
BRE RR RRR RRR RRR RRP PPR eal 


EEE WWWWWN WI Ioononononore 


WN OC ODNAVL EWN“ OOOVNOUNEW 


0444 BEGIN 


LOCAL 
to_end; 
48 
0449 IF .gca_skip_out 
THEN 
RETURN; 


' 
User said /SIMULATE, so simulate formfeeds. 


ts_init (fra); 
to_end = .phan_plines - (.phan_bottom MOD .phan_plines); 


IF 
THEN 


WMPIPIPIPPININININIDD 2 2 OO SS | O00 


iw 
wr 


-to_end NEQ .phan_plines 
' 


AOOWIUIMINIMIUIUIUIN 


Skip blank Lines only if not already at the end of the page. 


iNCR i FROM 1 TO MIN (.to_end, 500) DO 
op_dev_write_output_line; 


5 a.d-dpddanananenananaen 
MEW —OOONOULS WMO 


phan_form_pend = 0; ! No more pending formfeed. 


! 
| Buzz the user if he said /PAUSE. 
if .phan_pause 
THEN itt 
bwait (); 


END; ! End of UFORM 
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6 
SKIP Perform all modes of Line skipin 1b-se -1984 247: VAX-11 Bliss-32 V4.0-742 Page 1 
v04~000 UFORM == throw blank Lines 20° tos-of-page 1 ~3007 1383 94:68:69 DISKSVMSMASTER: CRUNOFF .SRCISKIPL.BLI:1> (8 
003¢ .ENTRY UFORM Saye R2,R3,R4,R5 3 0424 
55 G EF OF MOVAB PHAN+S, R : 
4 G EF ' MOVAB FRA, R4 : 
61 G EF E 19 BLBS GCA+112, 7$ + 0449 
f AG b4 1 CLRL —s- FRA#1 t 0456 
64 AG 1A MOVAB FRA+16, FRA : 
04 Ad 64 D 16 MOVL FRA, FRA+4 : 
51 5 p é MOVL PHAN+8, R1 : 0457 
43 00 30 AS 1 7A EMUL #1, PHAN+56, #0, -(SP) : 
5 20 F 1 re : EDIV. RI. (SP) + RO, RO ; 
0¢ SUBL3 RO, RI, TO_END : 
1 0 D1 00034 CMPL =‘ TO_END, R1 + 0459 
1 13 00037 BEQL 3 
53 9 D 00 9 MOVL §TO_END, R3 + 0464 
000001F4 BF D1 00 CMPL = R3,._- #500 F 
5 15 0004 BLEG F 
53 O1F4 BF 3C 0004 MOVZWL #500, R3 : 
: D4 OO04A 1$: CLRL ; 
18 11 0004C BRB $ : 
02 000000006 EF 04 04 FD 0046 2$ CMPZV #4, #4, GCA+208, #2 : 
4 14 0005 BGTR 3$ ; 
$ pd 00059 PUSHL #6 ; 
11 00058 BRB ; 
OB DD 0005D 3$ PUSHL : 
000000006 EE 01 Fe O05 4$ CALLS #1, CLH ; 
E4 2 3 F3 00066 5$ AOBLEQ R3, I, 2$ ; 
18 «AS (D4 006A 6$ CLRL. PHAN+$2 > 0467 
07 34 AS €9 0006D BLBC = PHAN+60, 7$ : 0472 
000000006 _ EF 00 FB 00071 CALLS #0, BWAIT + 0474 
04 00078 7$: RET : 0476 


; Routine Size: 121 bytes, Routine Base: S$CODE$ + 019A 


3 326 0477 

3 32 0478 ND ! End of module 

: 354 0479 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: SCODES 531 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
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SKIP Perform all modes of Line skipin -Sep-1 VAX=-11 Bliss-32 V4.0-742 S 
you~b00 UFORM == throw blank Lines to’ ton-of-page 1b-se0-1984 93:68 4:09 DISKSVMSMASTER: CRUNOFF ..SRCIJSKIPL.BLI; ott v 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBIXPORT.L32;1 9 25 :00. 

; RtiitNyTLe ahs SRCIDSRL IG. L32;1 1308 38 : 33 $8;00:5 

: COMMAND QUALIFIERS 

$ BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:SKIPL/OBJ=OBJ$:SKIPL MSRC$:SKIPL/UPDATE=(ENHS$: SKIPL) 

3; Size: 531 code + 0 data bytes 

; Run Time 6: .0 

; Slesced Time: TH} . 

3 Lines/CPU Min gS5e 

$ Lexemes/CPU-Min: 19706 


panecy Used: 78 pages 
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Compilation Complete 
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